
Do not abort 

Abort on assembly errors 


omitted or B 

B=0 

B=lfn 


I omitted 

I , 

l-tfn / 

L omitted or A. 

L-lfn / 
L-0 / 


MODE 


/PC^CONTRPLDATA COMPASS VERSION 3 

VS S/CORPORATION SUMMARY 

_ Pub, No. 60493000 B ©1982, 1983 _ 

CPC®OPERATING SYSTEMS: NOS 1, NOS 2, NOS/BE 1, SCOPE 2 _ 


INFORMATIVE ERRORS 

LOCATION SYMBOL BAD. SYMBOL NOT 
DEFINED. 

ADDRESS ERROR ON SYMBOL DEFINITION. 
DUPLICATE MACRO DEFINITION NEW ONE 
OVERRIDES. 

BAD FORMAL PARAMETER NAME IGNORED 
CPU OPERATION SYNTAX INCORRECTLY 
SPECIFIED. 

LOCATION FIELD MEANINGLESS 
ADDRESS VALUE EXCEEDS FIELD SIZE. 
RESULT TRUNCATED. 

MISSING OR EXTRA ADDRESS SUBFIELD 
MICRO SUBSTITUTION ERROR NO 
SUBSTITUTION. 


FATAL ERRORS 

ADDRESS FIELD BAD 

DOUBLV DEFINED SYMBOL. THE FIRST 

DEFINITION HOLDS. 

ECHO. DUP, RMT, OR MACRO ILLEGALLY 
NESTED. 

NUMBER OF ENTRIES EXCEEDS PERMISSIBLE 
AMOUNT 

LOCATION FIELD BAD. 

NEGATIVE REL -NATION ON ENTRY POINT 
OPERATION FIF D BAD. 

CONSULT LISTING FOR REASON BEHIND 
PERROR 

DATA ORIGIN OUTSIDE BLOCK OR IN 
BLANK COMMON BLOCK. 

UNDEFINED SYMBOL. VALUE ASSUMED 0. 

BIT COUNT ERROR ON VFD (MUST BE 
0 < COUNT < 60). 


CONTROL STATEMENT 


COMPASS (p,,p.p„> 


Binary on LGO 
No binary 
Binary on Ifn 


omitted or F 
F-n 

F-name 


Gt omitted or G=0 
G 

G-lfn 

G-Ifn/ovI 


Compact listing format 
Burstable listing format 

No debug mode 
Debug mode 

Error list on OUTPUT 
Error list on ERRS 
Error list on Ifn 
No error list 

*F returns 0 
*F returns n (decimal) 

*F returns as follows: 
COMPASS - 0 
RUN -1 

FTN4 - 2 

FTN5 - 3 

No system text 
System text on SYSTEXT 
Overlay on Ifn 
Named overlay on Ifn 

Source on INPUT 
Source on COMPILE 
Source on Ifn 

Full list on OUTPUT 
List on Ifn 
No full list 


LO omitted or LO-O 


ML omitted or ML 
M L “String 


PC omitted or PC 
PC=string 


St omitted 
S 

S-0 

S»ovl 

S=lib/ovl 


Selects B.L.N, and R 
Selects C.F.G.X 
Selects all list options 
Deselects if c ( is B.L.N, or R, 
selects if c ( It other 

MODLEVEL returns JOATE 
MODLEVEL returns 9 
character string 

Normal elects 
No ejects 

Short list on OUTPUT 
Short list on Ifn 
No short list 

New pagination on END 
Continue pagination 

PCOMMENT It 30 blanks 
PCOMMENT is 30 
character string 

SYSTEXT overlay 
SYSTEXT on global library 
No system text 
Named overlay on library 
Named overlay on named 
library 

XTEXT onOLDPL 
XTEXT on Ifn 
XTEXTon OPL 


tSeven G and S parameters allowed 


MODEL 72, 73, 74 EXIT MODES 


INDEFINITE 

OPERAND 


OPERAND 
OUT OF RANGE 


ADDRESS 
OUT OF RANGE 


MODEL 76 PSD REGISTER 


LANGUAGE 

ELEMENTS 


PSEUDO 

INSTRUCTIONS 


SPECIAL CHARACTERS 

Any Field 

# Micro substitution 

r* Concatenation 

First Column 

* Comments line 

' Continuation 

Location Field 

+ Force Upper 

- Negate Force Upper 

Variable Field 


=item 

=Ssym 

=Xsym 

»Ysym 

*0 

* or *L 
*P 
S 

*F 


Literal 

Deferred Symbol 
Strong External Symbol 
Weak External Symbol 
Origin Counter 
Location Counter 
Position Counter 
Position Counter — 1 
Caller COMPASS 0 
RUN 1 

FTN4 2 

FTN5 3 

Subfield Delimiter 
Symbol Qualifier 


CHARACTER NOTATION 



sign | n | 1 1 string | 
or 

| = | sign | t | d | string | d | 

C Left, 12 zero bits 

H Left, blank fill 

A Right, blank fill 

R Right, zero fill 

L Left, zero fill 

Z Left, 6 zero bits 

delimiter character 
no. of characters 
g = Code characters 


NUMERIC NOTATION 


sign prerx value mods 


Data 
Item 

Constant I value I mods I 


PROGRAM DEFINITION 


name, fwa, ep tsym 
trasym 


BINARY CONTROL 

ABS 

MACHINE typeM^j. 

type = 6, 7, or 8 hf, - C.D.I.L.X 
PPU J 
PER I PH J 

I DENT name.org. entry, C, ,B, 

I DENT name.org, entry, ppu 
name SEGMENT fwa.eptsym 
SET 

record STEXT 

LDSET p,jj 2 .p„ 

LCC directive 
COMMENT string 
NOLABEL I 


MODE CONTROL 


prerx value mods 


Mods Spec 

Sign + or - 

Radix OorB 

(pre/post) or D 
Integer n 

Fraction .n or 

Pwr 10 sgl 


En 


BASE 

Pseudo 

0 

none 


Pwr 10 dbl 


none 


or E±n 
EE or EEn 
or EE±n none 
S or Sn 

or S±n none 

P or Pn 

or P±n none 


SYSTEM MICROS 


QUAL 

SEQUENCE 

MODLEVEL 

PCOMMENT 


DATE 

JDATE 

TIME 

BASE 


mname BASE 
CODE 
QUAL 
B1=1 
B7“1 
COL 


O or 0 or tA or* 
A or D or E or 1 1 
name or* 


COUNTER CONTROL 

USE * or name or // or /name/ 

USE LCM * or name or // or /name/ 

ORG exp 

ORGC exp 

tym BSS exp 

LOC exp 

POS aexp 


SYMBOL DEFINITION 


sym 

sym 

sym 

sym 

sym 

sym 


EQU 

SET 

MAX 

MIN 


exp 

exp 

exp 

exp, ,expi . exp n 

exp i, exp 2 ,. . ., exp n 


MICCNT mname 
SST sym.. 


LINKAGE CONTROL 

ENTRY symi.symj .sym n 

ENTRYC sym,,sym .sym n 

EXT sym,.sym 2 . sym n 


DATA GENERATION 


sym 

sym 

sym 

sym 

sym 

sym 

sym 

sym 


BSSZ 

DATA 

DIS 

DIS 

LIT 

VFD 

CON 

R= 

REP 

REPC 

REPI 


exp 

item i,.. .,item n 

n.string 

.dstringd 

item . lterT n 

item, /exp, . exp n 

item, /exp,,.. -,exp n 
reg,exp 

S/addr, D/addr,C/rep,Q/bss, \/inc 
S/addr, D/addr, C /rep, B /bsz. I /inc 
Staddr, D laddr, C /rep, B Ibsi Mine 


ERROR FLAG 

f ERR 

r ERRop aexp 

op = ZR,NZ, PL, NG.MI 


CONDITIONAL ASSEMBLY 


name 

IF op 

exp ,.exp 2 . finer 

op 


att 

name 

IFMI 

exp.inc t 

EQ 


ABS 

name 

IFPL 

exp,9 net 

GE 


COM 

name 

IFCP 

tnct 

GT 


DEF 

name 

IFCP6 

9net 

LE 


EXT 

name 

IFCP7 

tnct 

LT 


LCM 

name 

IFPP 

tnct 

NE 


LOC 

name 

IFPP6 

tnct 

L — 1 


MIC 

name 

IFPP7 

tnct 


REG 

name 

IF 

att.exp, tnct 


REL 

name 

IF 

- att.expjlnct 


SET 

name 

IFC 

op.dstnng, during, d, 8 net 

SST 

name 


op.dstrmg. during, d, t net 


name 

ENDIF 




name 

ELSE 

tnct 



name 

SKIP 

8 net 




LIST CONTROL 


LIST 
P- A 
B 
C 
D 
E 
F 
G 
L 
M 
N 
R 
S 
T 
X 

name EJECT 
name SPACE 
name TITLE 
NOREF 
name TTL 
name CTEXT 
ENDX 
XREF 


Pi .Pa,- J>„or* 
Assembly 
Binary control 
Control statements 
Detail 

Echoed lines 
IF Skipped lines 
Code generation 
Reference table only 
User macros 

Referenced symbols only 
No references 
System macros 
SST symbols 
XTEXT lines 


aexp,.aexp, 
string 

sym,. ,sym n 

string 

string 

A or B 


DEFINITION OPERATIONS 

file XTEXT record 

name DUP reptnet 

name ECHO t ^.tj,,-flist, Ij> t -(list t I. 

name ENDD 

STOPDUP 
name RMT 

name HERE 

name MACRO p,j >. ,p„ 

MACRO nsmejiij},. ji n 
name MACRC’ p,jh. j>„ 

MACR'E oamej) t j> t . .,p„ 
sytx OPDEf PiJ»j. .P„ 

name ENDf.i 

LOC AL sym,,. . .jym n 
IRP p 


OPCODF MANAGEMENT 

name 

PPOP 

ctl. val, type 

name. 

OPSYN 

NIL 

name 2 


PURGMAC 

name, .namei, ■ - ■,name n 


PURGDEF 

sytx 

sytx 

C°OP 

ctl, val, reg, type 

sytx. 

CPSYN 

sytx, 


MICRO 


mname MICRO 
mname MICRO 
mname DECMIC 
mname OCTMIC 


r»i,nj, dstringd 
n,,dstringd 
aexp.n 
aexp.n 












































CPU 

INSTRUCTIONS 


ES (D© 

PS ©CD© 
RJ 

RL ©@ 


XJ 

RXj ©©© 
WXj ®©@ 


CYBER 70 Model 76, and 7600 

CYBER 170 Models 171, 172, 173, 174, 175, 720, 730, 740, 750, and 760; 
CYBER 70 Models 71, 72, 73, and 74; and 6000 Series 
CYBER 170 Model 176 

CYBER 170 Models 815, 825, 835, 855, 865, and 875 
Privileged to monitor 


Error exit to EE A 
Program stop 
Return jump to K 

Block-copy K plus (Bj) words from LCM to SCM 
Read extended core storage 
Block-copy K plus (Bj) words from SCM to LCM 
Write extended core storage 
Exchange-exit to NEA if exit flag clear 
Exchange-exit to K + (Bj) if exit flag set 
Central exchange jump to Bj+K 
Read LCM at (Xk) to Xj 
Write (Xj) into LCM at (Xk) 

Reset channel (Bk) input buffer 
Read channel (Bk) input status to Bj if j # 0; 

otherwise, same as Rl 
Set Bj to current clock time 
Reset channel (Bk) output buffer 
Read channel (Bk) output status to Bj if j ^ 0; otherwise. 

same as RO 
Jump to K plus (Bi) 

Branch to K if (Xj) = 0 
Branch to K if (Xj) * 0 
Branch to K if (Xj) sign is plus 
Branch to K if (Xj) sign is minus 
Branch to K if (Xj) sign is minus 
Branch to K if (Xj) in range 

Branch to K if (Xj) not in range r“-;- i 

Branch to K if (Xj) definite LogiCdl 

Branch to K if (Xj) indefinite Operators 

Branch to K ^ ' 


Branch to K * 010 

Branch to K if (Bi) = (Bj) 1 io 

Branch to K if (Bi) = 0 5^0 

Branch to K if (Bi) * (Bj) —-— 

Branch to K if (Bi) * 0 * 

Branch to K if (Bi) > (Bj) 

Branch to K if (Bi) > 0 _ 

Branch to K if (Bj) < (Bi) 010 

Branch to K if (Bj) <0 110 

Branch to K if (Bi) >0 100 

Branch to K if (Bi) < 0 

Branch to K if (Bi) < (Bj) 

Branch to K if (Bi) < 0 

Branch to K if (Bj) > (Bi) 

Branch to K if (Bj) > 0 

Branch to K if (Bi) < 0 

Copy (Xj) to Xi 

Logical product of (Xj) and (Xk) to Xi 
Logical sum of (Xj) plus (Xk) to Xi 
Logical difference of (Xj) minus (Xk) to Xi 
Copy complement of (Xk) to Xi 
Logical product of (Xj) and complement of (Xk) to Xi 
Logical sum of (Xj) plus complement of (Xk) to Xi 
Logical difference of (Xj) minus complement of (Xk) to Xi 
.Logical-shift (Xi) by i jk 
Arithmetic shift (Xi) by t jk 
Logical shift (Xk) by (Bj) to Xi 
Logical-shift (Xi) by (Bj) to Xi 
Transmit (Xk) to Xi 
Logical-shift (Xk) by (Bj) to Xi 
Arithmetic shift (Xk) by (Bj) to Xi 
Arithmetic shift (Xi) by (Bj) to Xi 
Transmit (Xk) to Xi 
Arithmetic shift (Xk) by (Bj) to Xi 
Normalize (Xk) to Xi and Bj 
Normalize (Xi) to Xi 
Normalize (Xi) to Xi and Bj 
Normalize (Xk) to Xi 
Normalize (Xk) to Xi and Bj 
Normalize (Xk) to Xi and Bj 
Round and normalize (Xk) to Xi and Bj 
Round and normalize (XI) to Xi 
Round and normalize (Xi) to Xi and Bj 
Round and normalize (Xk) to Xi 
Round and normalize (Xk) to Xi and Bj 
Round and normalize (Xk) to Xi and Bj 
Unpack (Xk) to Xi and Bj 
Unpack (Xi) to Xi 
Unpack (Xi) to Xi and Bj 
Unpack (Xk) to Xi 
Unpack (Xk) to Xi and Bj 
Unpack (Xk) to Xi and Bj 


27ijk 

PXi 

27i0i 

PXi 

27iji 

PXi 

27iOk 

PXi 

27ijk 

PXi 

30ijk 

FXi 

31 ijk 

FXi 

32ijk 

DXi 

33ijk 

DXi 

34ijk 

RXi 

35i jk 

RXi 

36ijk 

IXi 

37 ijk 

IXi 

40ijk 

FXi 

41 ijk 

RXi 

42ijk 

IXi 

42i jk 

DXi 

43ijk 

MXi 

44ijk 

FXi 

45ijk 

RXi 

46000 

NO 

47 ikk 

CXi 

50i)K 

SAi 

51 ijK 

SAi 

51 iOK 

SAi 

52ijK 

SAi 

53i jk 

SAi 

53ijk 

SAi 

53ij0 

SAi 

54ijk 

SAi 

54ijk 

SAi 

54ij0 

SAi 

55ijk 

SAi 

55ijk 

SAi 

56ijk 

SAi 

56ij0 

SAi 

57 ijk 

SAi 

57i0k 

SAi 

57ijk 

SAi 

60ijK 

SBi 

61 ijK 

SB 1 

61 iOK 

SBi 

62ijK 

SBi 

63i jk 

SBi 

63i0k 

SBi 

64ijk 

SBi 

64.jk 

SBi 

64ij0 

SBi 

65ijk 

SBi 

65ijk 

SBi 

660jk 

CR © 

661 jk 

SBi 

66ij0 

SBi 

670jk 

cw @ 

67 ijk 

SBi 

67i0k 

SBi 

67ijk 

SBi 

70ijK 

SXi 

71ijK 

SXi 

71i0K 

SXi 

72i|K 

SXi 

73ijk 

SXi 

73ijk 

SXi 

73i0k 

SXi 

741 jk 

SXi 

74ijk 

SXi 

74ij0 

SXi 

75ijk 

SXi 

75ijk 

SXi 

76ijk 

SXi 

76ij0 

SXi 

77ijk 

SXi 

77iOk 

SXi 

77i jk 

SXi 


Pack (Xk) and(Bj) to Xi 
Pack (Xi) to Xi 
Pack (Xi) and (Bj) to Xi 
Pack (Xk) to Xi 
Pack (Xk) and (Bj) to Xi 
Sum of (Xj) plus (Xk) to Xi 
Difference of (Xj) minus (Xk) to Xi 
Double-precision sum of (Xj) plus (Xk) to Xi 
Double-precision difference of (Xj) minus (Xk) to Xi 
Rounded sum of (Xj) plus (Xk) to Xi 
Rounded difference of (Xj) minus (Xk) to Xi 
Integer sum of (Xj) plus (Xk) to Xi 
Integer difference of (Xj) minus (Xk) to Xi 
Product of (Xj) times (Xk) to Xi 
Rounded product of (Xj) times (Xk) to Xi 
Integer product of (Xj) times (Xk) to Xi 
Double-precision product of (Xj) times (Xk) to Xi 
Form mask of ± jk bits in Xi 
Divide (Xj) by (Xk) to Xi 
Rounded divide (Xj) by (Xk) to Xi 
Pass (do-nothing) 

Population count of (Xk) to Xi 
(Aj) plus K to Ai 
(Bj) plus K to Ai 
K plus 0 to Ai 
(Xj) plus K to Ai 
(Xj) plus (Bk) to Ai 

(Bk) plus (Xj) to Ai ————— 

Kg£!£•«< functional units | 

!%»r' MjJ.74 Mo 

(Aj) minus (Bk) to Ai 00181 C 

(Aj) minus (Bk) to Ai Codes C 

(Bj) plus (Bk) to Ai Rra . “r. , 

»Q-» | a , . • Branch Bool 

(Bj) plus 0 to A. QO07 —- 

(Bj) minus (Bk) to Ai _ r?"" I 

0 minus (Bk) to Ai -rrr-rt 

(Bj) minus (Bk) to Ai c-l, 

(Aj) plus K to Bi 07 a 

(Bj) plus K ,o Bi J” 7 * 

K plus 0 to Bi Pp 43 ^ 

(Xj) plus K to Bi gTTfc 

(Bk) plus (Xj) to Bi . 30 3 * 

(Xj) plus 0 to Bi — i a A . d , d , 31 

(Aj) plus (Bk) to Bi 3 ®- 37 , -1=22 

(Bk) plus(Aj) toBi FP M. u 'V ply 3 ' 

(Aj) plus 0 to Bi ^ 

(Aj) minus (Bk) to Bi ^44*45 47 f p r 

(Aj) minus (Bk) to Bi , 44 - 45 - 47 

Read central memory nc ^ fT l enl 4 ' 

(Bj) plus (Bk) to Bi 50 77 

(Bj) plus 0 to Bi 4 

Write central memory nc i* 

(Bj) minus (Bk) to Bi ___ 

0 minus (Bk) to Bi 
(Bj) minus (Bk) to Bi 
(Aj) plus K to Xi 
(Bj) plus K to Xi 
K plus 0 to Xi 
(Xj) plus < to Xi 
(Xj) plus (Bk) to Xi 
(Bk) plus(Xj) toXi 
(Xj) plus 0 to Xi 
(Aj) plus (Bk) to Xi 
(Bk) plus(Aj) to Xi 
(Aj) plus 0 to Xi 
(Aj) minus (Bk) to Xi 
(Aj) minus (Bk) to Xi 
(Bj) plus (Bk) to Xi 
(Bj) plus 0 to Xi 
(Bj) minus (Bk) to Xi 
0 minus (Bk) to Xi 
(Bj) minus (Bk) to Xi 


PP 

INSTRUCTIONS 


FP Multiply 

-WaY 

FP Qivide 
44. 45. 47 
Increment 
5077 


Long Add 
36. 37 
FP Multiply 
46 42 


CMU INSTRUCTIONS 


164 |j | 000000 


465 “s 


K Move data according to word at K 

Bj+K Move data according to word at Bj+K 

8j Move data according to word at Bj 

8 ,k s ,c s ,k{j,c { j Indirect move descriptor word 

8 .kj.dj.k^.Cjj Direct move 

8 ,k a ,c a ,k b ,cj, Compare collated 

^-ka-Ca-kb'*^ Compare uncollated 


CYBER 70 Model 76, and 7600 

CYBER 170 Models 171, 172, 173, 174, 175, 720, 730. 740, 750, and 760; 
CYBER 70 Models 71, 72, 73. and 74. and 6000 Series 
CYBER 170 Model 176 

CYBER 170 Models 815, 825, 835, 855, 865, and 875 
d is required 


Long jump to m + (d) 

Return jump to m + (d) 

Unconditional jump to p + r 
Zero jump to p + r 
Nonzero jump to p + r 
Positive jump to p + r 
Negative jump to p + r 

Shift (A) left-circular (+r) or right-end off (—r) 

Logical difference; (A)-d -*A 
Logical product; (A) * d~+A 
Selective clear; (A) at each d bit set 
Load d —►A 

Load complement d A 

Add d + (A)~+A 

Subtract (A)—d -+A 

Load c-+A 

Add (A) +c-+A 

Logical product; (A) * c-+A 

Logical difference; (A)-c-+A 

Pass 

D Load (R) from d and d+1 

D Store (R) into d and d+1 

D(D© Exchange jump CPU d unconditionally to (A) 
b 6416 Extended transfer 

b Monitor exchange jump CPU d to (A) 
b©© Monitor exchange jump CPU d to (MA) 
h© Read program address of CPU d to A 
D 6416 Extended read status 

Load (d) -+A 
Add (A) + (d)-+A 
Subtract (A) -(d)-* A 
Logical difference; (A) and (d) —► A 
Store (A) -ad 

Replace add; (d) + (A)-ad and A 
Replace add one; (d) + 1 -ad and A 
Replace subtract one; (d) — 1 —► d and A 
Load ||d|)-aA 
Add (A) + ((d))—► A 
Subtract (A)-((d))-aA 
Logical difference; (A)-((d))-aA 
Store (A)-a(d) 

Replace add; (A) + ((d))-+ (d) and A 
Replace add one; ((d)) + 1-a (d) and A 
Replace subtract one; ((d))—1 -a (d) 

Load (m + (d))-a A 
Add (m + (d)) + (A)~a A 
Subtract (A)-(m + (d))-a A 
Logical difference; (A)— (m + (d))-+ A 
Store (A)-+m + (d) 

Replace add; (A) + (m + (d))-+m + (d) and A 
Replace add one; (m + (d)) + 1-am + (d) and A 
Replace subtract one; (m + (d))— 1-a m + (d) and A 
b© Jump to m on input word flag on channel d 
b@© Central read from (A) to d 
b© Jump to m if no input word flag on channel d 
D@® Central read (d) CM words beginning from CM address (A) to 
beginning PPU address m 

)© Jump to m on input record flag on channel d 
b@® Central write from d to (A) 
b@ Jump to m if no input record flag on channel d 
b@® Central write (d) CM words beginning from PPU address m to 
beginning CM address (A) 

Branch to m if d flag set 
Jump to m on output word flag on channel d 
© | Jump to m if channel d is active 
Clear channel d flag 

Jump to m if no output word flag on channel d 
Jump to m if channel d is inactive 
Branch to m if channel d error flag set 
Jump to m on output record flag on channel d 
Jump to m if channel d is full 
Branch to m if channel d error flag clear 
Jump to m if no output record flag on channel d 
Jump to m if channel d is empty 
Input to A from channel d 
Input (A) words to m from channel d 
Output from A on channel d 
Output (A) words from m on channel d 
Send record flag on channel d 
Activate channel d 
Disconnect channel d 
Function (A) on channel d 
Function m on channel d 
Error stop 















